home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1997 May / EnigmA AMIGA RUN 18 (1997)(G.R. Edizioni)(IT)[!][issue 1997-05][EAR-CD II].iso / earcd / dev / src / lightcyc.lha / LightCycle / Macra.s < prev    next >
Text File  |  1997-01-12  |  1KB  |  80 lines
  1. ;TOSAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
  2. ;
  3. ;start 96-Styczeï-01
  4. ;$VER: macra v1.0c DATE 7-XII-96
  5. ;name        info                example        more info
  6. ;
  7. ;push        zrzutka rejestrów na stos     d0-d4/a0
  8. ;pop        zbiórka rejestrów ze stosu    d0-d4/a0
  9. ;call        skok do procedórki sys _XXX    OpenLibrary    jsr _xxx(a6)
  10. ;callexec    skok od execu            OpenLibrary    4.w>a6 call xx
  11. ;exec        wrzuca do a6 baze execu        -        move.l 4.w,a6
  12. ;rmb        pauza na prawâ mysz        -
  13. ;vertical    czeka na dany wertical        $101
  14. ;waitblitter    czeka aû blit. zkoïczy dziaîaê    -
  15. ;open
  16. ;movel        wrzuca baze biblioteki do a6    Dos        move.l xxBase,a6
  17. ;jump        jak call tylko jmp        OpenLibrary
  18. ;ml        zamiast move.l            jak move.l
  19. ;mw        move.w
  20. ;mb
  21. ;q 1
  22. ;q0 d0
  23.  
  24. ml:    MACRO
  25.     move.l    \1,\2
  26.     ENDM
  27. mw:    MACRO
  28.     move.w    \1,\2
  29.     ENDM
  30. mb:    MACRO
  31.     move.b    \1,\2
  32.     ENDM
  33. q:    MACRO
  34.     moveq    #\1,\2
  35.     ENDM
  36. q0:    MACRO
  37.     moveq    #0,\1
  38.     ENDM
  39.  
  40. push:    MACRO
  41.     movem.l    \1,-(sp)
  42.     ENDM
  43. pop:    MACRO
  44.     movem.l    (sp)+,\1
  45.     ENDM
  46. EXEC:    MACRO
  47.     move.l    4.w,a6
  48.     ENDM
  49. RMB:    MACRO
  50.     btst    #2,$16(a5)
  51.     beq.s    *-6
  52.     ENDM
  53. VERTICAL:    MACRO
  54.     move.l    4(a5),d0
  55.     and.l    #$0001ff00,d0
  56.     cmp.l    #\1*2^8,d0
  57.     bne.s    *-16
  58.     ENDM
  59. WAITBLITTER:    MACRO
  60. .\@WB    btst    #14,2(a5)
  61.     bne.s    .\@WB
  62.     ENDM
  63. MOVEL:    MACRO
  64.     move.l    \1Base(pc),a6
  65.     ENDM
  66. JUMP:    MACRO
  67.     jmp    _\1(a6)
  68.     ENDM
  69. CALL:    MACRO
  70.     jsr    _\1(a6)
  71.     ENDM
  72. CALLEXEC:    MACRO
  73.     EXEC
  74.     jsr    _\1(a6)
  75.     ENDM
  76. CALLB:    MACRO
  77.     move.l    \2Base(pc),a6
  78.     jsr    _\1(a6)
  79.     ENDM
  80.